﻿Imports System.Web.Services
Imports MoniMisi2

Partial Class Orders
  Inherits System.Web.UI.Page


  <WebMethod()> _
Public Shared Function ManejoOrders(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    If Contrato.Operacion.Nombre = "Leer" Then
      Dim OrdersTA = New NorthWindTableAdapters.OrdersTableAdapter
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, OrdersTA.Adaptador)
    End If
    Return Contrato
  End Function

  <WebMethod()> _
Public Shared Function ManejoOrderDetails(ByVal pContrato As MoniMisi2.ProveedorDatosServidor.Contrato) As MoniMisi2.ProveedorDatosServidor.Contrato
    Dim Contrato As MoniMisi2.ProveedorDatosServidor.Contrato = pContrato
    If Contrato.Operacion.Nombre = "Leer" Then
      Dim OrderDetailsTA = New NorthWindTableAdapters.Order_DetailsTableAdapter
      Contrato = ProveedorDatosServidor.LeerFilas(Contrato, OrderDetailsTA.Adaptador(Contrato.Filtro))
    End If
    Return Contrato
  End Function

End Class
